﻿Imports System.Text
Imports System.Net
Imports System.IO

Public Class Board_Form
    Dim WebPost As New WebBrowser

    Private Sub btnSend_Click(sender As System.Object, e As System.EventArgs) Handles btnSend.Click
        '文本框赋值   
        WebPost.Document.All("nc").SetAttribute("value", txtSubject.Text)
        WebPost.Document.All("nr").SetAttribute("value", txtContent.Text & "——来自【陈恩点笔记】的评价")
        '点击按钮
        WebPost.Document.GetElementById("btn").InvokeMember("click")
        MsgBox("评论已经提交到网页！", MsgBoxStyle.Information, "成功")
        txtContent.Clear()
        txtSubject.Clear()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Process.Start("http://cedtry.free3v.net/")
    End Sub

    Private Sub Board_Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WebPost.Navigate("http://cedtry.free3v.net/")
    End Sub
End Class